op_le_CH_VS Function

private elemental function op_le_CH_VS(string_a, string_b) result(op_le)

Compare (<=) a character string and a varying string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string_a
type(varying_string), intent(in) :: string_b

Return Value logical


Source Code

elemental function op_le_CH_VS (string_a, string_b) result (op_le)

    character(LEN=*), intent(in)     :: string_a
    type(varying_string), intent(in) :: string_b
    logical                          :: op_le

    op_le = string_a <= char(string_b)

! Finish

    return

end function op_le_CH_VS